' Arc
' This program demonstrates how to create arcs with the CIRCLE statement.

CLS

WHILE UCASE$(dummy$) <> "Q"
    CLS
    PSET (250, 38): PSET (250, 138)   ' draw top and bottom points
    PSET (200, 88): PSET (300, 88)     ' draw left and right points
    LOCATE 2, 30: PRINT "1.57"          ' label for top point
    LOCATE 6, 20: PRINT "3.14"          ' label for left point
    LOCATE 10, 30: PRINT "4.71"        ' label for bottom point
    LOCATE 6, 40: PRINT "0 or 6.28"   ' label for right point
   
    LOCATE 14, 1
    PRINT "Enter values between 0 and 6.28"
    PRINT "(A negative value draws a radius.)"
    INPUT "Please enter starting point:  ", starting!
    INPUT "Please enter ending point:  ", ending!
    CIRCLE (250, 88), 50, , starting!, ending!    ' no color value
    INPUT "Press Enter to continue or Q to quit: ", dummy$

WEND
